home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Opera 4.xpl < prev    next >
Text File  |  2002-10-22  |  2KB  |  86 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Opera"
  5. "NAME"="Opera Preferences"
  6. "VERSION"="3.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display Language Options"
  9. "TEXT 2"="Display Paths Options"
  10. "TEXT 3"="Display Personal Options"
  11. "DESCRIPTION 1"="For Opera 5. Here you can control whether certain options will be displayed in User Preferences or not. They are enabled by default, but you may hide them if you wish."
  12. "DESCRIPTION 2"="Opera may be obtained at http://www.opera.com/ ."
  13. "AUTHOR"="Ojatex@aol.com"
  14. "CONTACTURL"="http://members.aol.com/ojatex/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to CptSiskoX for suggested plugin."
  17.  
  18. sFile=""
  19. ss="Menu Prefs Settings"
  20. v1="Language"
  21. v2="Paths"
  22. v3="Personal"
  23.  
  24. Sub GetINIFile    
  25.     sPath=RegReadValue("HKCU\Software\Opera Software\Last Directory")
  26.     sFile=sPath & "\OPERA.ini"
  27.  
  28.     if FileExists(sFile)=false then
  29.        sFile=GetWinDir & "OPERA.ini"
  30.     end if   
  31. End Sub
  32.  
  33.  
  34. Sub Plugin_Initialize 
  35.  Call GetINIFile
  36.  if FileExists(sFile)=true then
  37.  
  38.   i=IniReadValue(sFile,ss,v1)
  39.   if i="1" then
  40.    Call SetUIElement(1,true)
  41.   end if
  42.  
  43.   i=IniReadValue(sFile,ss,v2)
  44.   if i="1" then
  45.    Call SetUIElement(2,true)
  46.   end if
  47.  
  48.   i=IniReadValue(sFile,ss,v3)
  49.   if i="1" then
  50.    Call SetUIElement(3,true)
  51.   end if
  52.  else
  53.     Call Disable()
  54.  end if
  55. End Sub
  56.  
  57. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  58.  i=GetUIElement(1)
  59.  if i=false then
  60.     Call IniWriteValue(sFile,ss,v1,"")
  61.  else
  62.     Call IniWriteValue(sFile,ss,v1,"1")
  63.  end if
  64.  
  65. i=GetUIElement(2)
  66.  if i=false then
  67.     Call IniWriteValue(sFile,ss,v2,"")
  68.  else
  69.     Call IniWriteValue(sFile,ss,v2,"1")
  70.  end if
  71.  
  72. i=GetUIElement(3)
  73.  if i=false then
  74.     Call IniWriteValue(sFile,ss,v3,"")
  75.  else
  76.     Call IniWriteValue(sFile,ss,v3,"1")
  77.  end if
  78.  
  79. End Sub
  80.  
  81. Sub Plugin_Terminate 
  82. End Sub
  83.  
  84.  
  85.  
  86.